home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / FROMUTS / RISCBBS / !RiscBBS / Menus / Filebase / NewScan < prev    next >
Text File  |  1992-02-24  |  423b  |  26 lines
  1. {
  2.  report `Files newscan`
  3.  
  4.  defopt L= `Locally` 10 ``
  5.    a_reset B
  6.    menu Filebase.ZipNew
  7.  endopt
  8.  
  9.  defopt G= `Globally` 10 ``
  10.    a_reset `A0 B G`
  11.    f_list `1 G N L`
  12.    if RET=0
  13.      menu Filebase.GlobZipNew
  14.    else
  15.      menu Filebase.Main
  16.    endif
  17.  endopt
  18.  
  19.  defopt A= `Abort` 10 ``
  20.    menu Filebase.Main
  21.  endopt
  22.  
  23.  attr 0 6
  24. }
  25. Newscan: {fg 7}[{fg 1}L{fg 7}]ocally  [{fg 1}G{fg 7}]lobally  [{fg 1}A{fg 7}]bort : {fg 1 eof}
  26.